home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
LIBRARY
/
SWDOS12
/
ATTR.ASM
< prev
next >
Wrap
Assembly Source File
|
1995-02-10
|
2KB
|
57 lines
;******************************************************************
;* ATTR.ASM *
;* Source file for SoftWeyr enhanced DOS toolbox *
;* version 1.1 *
;* Copyright (c) by SoftWeyr,1994 *
;******************************************************************
MODEL TPASCAL
LOCALS
.DATA
EXTRN DosError :word
.CODE
Public SetFileAttr
Public GetFileAttr
Extrn Asciiz:Far
SetFIleAttr Proc Far Name:DWord,Attr:Word
LOCAL AName:Byte:80=LSIZE
Push DS
;Load string address
LDS SI,Name
LEA DI,AName
;Prepare ASCIIZ from lstring
;Put attribute word into CX
Call Asciiz
LEA DX,Aname
PUSH SS
POP DS
MOV CX,Attr
MOV AX,4301H
INT 21H
POP DS
JC @@Error
XOR AX,AX
@@Error: MOV DosError,AX
RET
endp
GetFileAttr Proc Far Name:Dword
LOCAL AName:Byte:80=LSIZE
Push DS
;Load string address
LDS SI,Name
LEA DI,AName
;Prepare ASCIIZ from lstring
Call Asciiz
lea DX,AName
PUSH SS
POP DS
mov ax,4300H
Int 21h
Pop ds
jc @@Error
xor ax,ax
@@Error: Mov DosError,ax
Mov AX,CX
Ret
EndP
end